unit smLocation;

interface

uses
  Classes, smWorld;

type
  TLocation = class(TCustomLocation)
  protected
    function DoLoadFromStream(const AStream: TStream): Boolean; override;
    function DoSaveToStream(const AStream: TStream): Boolean; override;
    procedure DoClear(); override;

  end;

implementation

{ TLocation }

function TLocation.DoLoadFromStream;
begin
  Result := True;
end;

function TLocation.DoSaveToStream;
begin
  Result := True;
end;

procedure TLocation.DoClear;
begin

end;

end.
